home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ MSDOSSYS 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.6 KB  |  102 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\10) Boot Menu"
  5. "NAME"="General Options"
  6. "VERSION"="1.61"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Start Windows automatically"
  10. "TEXT 2"="Display Windows logo while booting"
  11. "TEXT 3"="Enable F4,F5,F6 and F8 keys while booting"
  12. "TEXT 4"="Display bootmenu before starting"
  13. "TEXT 5"="Display warning before using "Safe Mode""
  14. "DESCRIPTION 1"="Change the options here to control what Windows does on bootup."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to Joseph B. Calderone [mailto:joe935@cablenet-va.com] for bug notices!"
  20.  
  21.  
  22. 'Declaration of some constants
  23. sF="C:\MSDOS.SYS"
  24. sO="OPTIONS"
  25.  
  26. 'Called when the Plugin is started
  27. Sub Plugin_Initialize
  28.   Call FileSetAttribute(sf,"S-")
  29.   Call FileSetAttribute(sf,"R-")
  30.   Call FileSetAttribute(sf,"H-")
  31.  
  32.  
  33.   i=IniReadValue(sf,so,"BootGUI")
  34.   if i=1 then SetUIElement 1,true
  35.  
  36.   i=IniReadValue(sf,so,"Logo")
  37.   if i=1 then SetUiElement 2,true
  38.   if IsEmpty(i) then SetUiElement 2,true 'if not present, Windows default is true
  39.  
  40.   i=IniReadValue(sf,so,"BootKeys")
  41.   if i=1 then SetUiElement 3,true
  42.   if IsEmpty(i) then SetUiElement 3,true 'if not present, Windows default is true
  43.  
  44.   i=IniReadValue(sf,so,"BootMenu")
  45.   if i=1 then SetUiElement 4,true
  46.  
  47.   i=IniReadValue(sf,so,"BootWarn")
  48.   if i=1 then SetUiElement 5,true
  49. End Sub
  50.  
  51. 'Called when the Plugin should validate the Data the user has entered
  52. Sub Plugin_CheckData(ElementIndex)
  53. End Sub
  54.  
  55. 'Called when the Plugin should apply the changes
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  
  58.  b=GetUIElement(1)
  59.  if b=true then
  60.   Call IniWriteValue(sf,so,"BootGUI",1)
  61.  else
  62.   Call IniWriteValue(sf,so,"BootGUI",0)
  63.  end if
  64.  
  65.  b=GetUIElement(2)
  66.  if b=true then
  67.   Call IniWriteValue(sf,so,"Logo",1)
  68.  else
  69.   Call IniWriteValue(sf,so,"Logo",0)
  70.  end if
  71.  
  72.  b=GetUIElement(3)
  73.  if b=true then
  74.   Call IniWriteValue(sf,so,"BootKeys",1)
  75.  else
  76.   Call IniWriteValue(sf,so,"BootKeys",0)
  77.  end if
  78.  
  79.  b=GetUIElement(4)
  80.  if b=true then
  81.   Call IniWriteValue(sf,so,"BootMenu",1)
  82.  else
  83.   Call IniWriteValue(sf,so,"BootMenu",0)
  84.  end if
  85.  
  86.  b=GetUIElement(5)
  87.  if b=true then
  88.   Call IniWriteValue(sf,so,"BootWarn",1)
  89.  else
  90.   Call IniWriteValue(sf,so,"BootWarn",0)
  91.  end if
  92.  
  93.  Restart
  94. End Sub
  95.  
  96. 'Called when the Plugin is about to be removed from memory
  97. Sub Plugin_Terminate
  98.  Call FileSetAttribute(sf,"S+")
  99.  Call FileSetAttribute(sf,"R+")
  100.  Call FileSetAttribute(sf,"H+")
  101. End Sub
  102.